Header$ = "MLS 2.00  Languages:  0  1  2"

CLS
OPEN "E:\MLS2" FOR BINARY AS 1
PUT #1, , Header$
a$ = SPACE$(&H26 - LEN(Header$))+chr$(&h0d)+chr$(&h0a)+SPACE$(&h190-&H28)
PUT #1, , a$
FOR x% = &H21 TO &HfF
a$ = CHR$(x%) + CHR$(1)
PUT #1, , a$
NEXT

'a$=input$(1)
SYSTEM

